home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00130_RESETALLMEN.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  680 b   |  24 lines
  1. on RESETALLMEN
  2.   global GRIDV, GRIDH, GRIDY
  3.   repeat with N = 1 to 140
  4.     if getAt(GRIDV, N) = 2 then
  5.       set the castNum of sprite 10 to 9
  6.       set the locH of sprite 10 to getAt(GRIDH, N)
  7.       set the locV of sprite 10 to getAt(GRIDY, N)
  8.       updateStage()
  9.     end if
  10.     if getAt(GRIDV, N) = 3 then
  11.       set the castNum of sprite 29 to 4
  12.       set the locH of sprite 29 to getAt(GRIDH, N)
  13.       set the locV of sprite 29 to getAt(GRIDY, N)
  14.       updateStage()
  15.     end if
  16.     if getAt(GRIDV, N) = 1 then
  17.       set the locH of sprite 30 to getAt(GRIDH, N)
  18.       set the locV of sprite 30 to getAt(GRIDY, N)
  19.       updateStage()
  20.     end if
  21.   end repeat
  22.   REMOVESPRITE()
  23. end
  24.